unit uFormLogin;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons;

type

  { TLoginForm }

  TLoginForm = class(TForm)
    BTIPManage: TButton;
    CBServer: TComboBox;
    CheckPas: TCheckBox;
    EditUserName: TEdit;
    EditPassword: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SBLogin: TSpeedButton;
    procedure BTIPManageClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SBLoginClick(Sender: TObject);
  private

  public

  end;

var
  LoginForm: TLoginForm;

implementation

{$R *.lfm}

{ TLoginForm }

procedure TLoginForm.SBLoginClick(Sender: TObject);
begin
  CBServer.Items.Objects[];
end;

procedure TLoginForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin

end;

procedure TLoginForm.BTIPManageClick(Sender: TObject);
begin

end;

procedure TLoginForm.FormCreate(Sender: TObject);
begin

end;

procedure TLoginForm.FormShow(Sender: TObject);
begin

end;

end.

